home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / VBLMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  2.7 KB  |  89 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. MODULE MacVBLMgr;
  20. (* cp 
  21.     IMPORT SYSTEM, MacTypes;
  22.     CONST CODE = 1; NOSTKCHK = 4;
  23.     TYPE
  24.         VBLTaskPtr* = POINTER TO VBLTask;
  25.         VBLTask* = RECORD (MacTypes.Data)
  26.             qLink: VBLTaskPtr;
  27.             qType*: INTEGER;
  28.             vblAddr*: PROCEDURE;
  29.             vblCount*: INTEGER;
  30.             vblPhase*: INTEGER
  31.         END;
  32.         QHdrPtr* = POINTER TO QHdr;
  33.         QHdr* = RECORD (MacTypes.Data)
  34.             qFlags*: INTEGER;
  35.             qHead*, qTail*: VBLTaskPtr
  36.         END;
  37.     PROCEDURE [CODE] vinstall 0A0H, 033H;
  38.     PROCEDURE [CODE] vremove 0A0H, 034H;
  39.     PROCEDURE [NOSTKCHK] VInstall* (vblTaskPtr: VBLTaskPtr): INTEGER;
  40.         VAR res: INTEGER;
  41.     BEGIN
  42.         SYSTEM.PUTREG(8, vblTaskPtr);
  43.         vinstall;
  44.         SYSTEM.GETREG(0, res);
  45.         RETURN res
  46.     END VInstall;
  47.     PROCEDURE [NOSTKCHK] VRemove* (vblTaskPtr: VBLTaskPtr): INTEGER;
  48.         VAR res: INTEGER;
  49.     BEGIN
  50.         SYSTEM.PUTREG(8, vblTaskPtr);
  51.         vremove;
  52.         SYSTEM.GETREG(0, res);
  53.         RETURN res
  54.     END VRemove;
  55.     PROCEDURE [NOSTKCHK] Install* (VAR vblTask: VBLTask): INTEGER;
  56.         VAR res: INTEGER;
  57.     BEGIN
  58.         SYSTEM.PUTREG(8, SYSTEM.ADR(vblTask));
  59.         vinstall;
  60.         SYSTEM.GETREG(0, res);
  61.         RETURN res
  62.     END Install;
  63.     PROCEDURE [NOSTKCHK] Remove* (VAR vblTask: VBLTask): INTEGER;
  64.         VAR res: INTEGER;
  65.     BEGIN
  66.         SYSTEM.PUTREG(8, SYSTEM.ADR(vblTask));
  67.         vremove;
  68.         SYSTEM.GETREG(0, res);
  69.         RETURN res
  70.     END Remove;
  71.     PROCEDURE [NOSTKCHK] GetVBLQHdr* (): QHdrPtr;
  72.         VAR t: QHdrPtr;
  73.     BEGIN
  74.         SYSTEM.GET(160H, t);
  75.         RETURN t
  76.     END GetVBLQHdr;
  77. END MacVBLMgr.
  78. TextControllers.StdCtrlDesc
  79. TextControllers.ControllerDesc
  80. Containers.ControllerDesc
  81. Controllers.ControllerDesc
  82. TextRulers.StdRulerDesc
  83. TextRulers.RulerDesc
  84. TextRulers.StdStyleDesc
  85. TextRulers.StyleDesc
  86. TextRulers.AttributesDesc
  87. Geneva
  88. Documents.ControllerDesc
  89.